student <- data.table(id=1:6,name=c('Dan','Mike','Ann','Yang','Li','Kate'))
score <- data.table(id=1:12,stuId=rep(1:6,2),score=runif(12,60,99),class=c(rep('A',6),rep('B',6)))


student
score
